home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 32 / Amiga Format AFCD32 (Nov 1998, Issue 117).iso / -seriously_amiga- / programming / c / stormamiga_lib / hd-installer_script < prev    next >
Text File  |  1998-08-24  |  11KB  |  433 lines
  1. ;*************************************************************
  2. ;*   stormamiga.lib Installer Version 3.4d  15.August 1998   *
  3. ;*                                                           *
  4. ;*         Copyright © 1996/98 by CyberdyneSystems           *
  5. ;*                written by Matthias Henze                  *
  6. ;*       english translation written by Thomas Blätte        *
  7. ;*                                                           *
  8. ;*************************************************************
  9. ;
  10. ; $VER: HD-Installer_script 3.4d (15.08.98)
  11.  
  12. (set stormamiga-Version "Version 44.01")
  13. (set stormamiga-Datum "15. August 1998")
  14. (set stormamiga-Datum_e "15. August 1998")
  15.  
  16. ;====================================================================
  17. ; Initialisierungen
  18. ;====================================================================
  19.  
  20. (set @default-dest "")
  21.  
  22. (if (= @language "deutsch")
  23.  (
  24.     (set #welcome (cat
  25.     "\nWillkommen bei der Installation der \n"
  26.     "D E M O V E R S I O N\n"
  27.     "der\n"
  28.     "\"stormamiga.lib\"\n"
  29.     ""stormamiga-Version" vom "stormamiga-Datum"\n\n"
  30.     "Dieses Skript installiert die \"stormamiga.lib\",\n"
  31.     "entsprechend Ihrer Angaben, auf Ihre Festplatte.\n\n\n"
  32.     "Kopierrecht © 1996/98 bei CyberdyneSystems\n"
  33.     "geschrieben von Matthias Henze"))
  34.     
  35.  
  36.     (set #StormC-Version_Auswahl (cat
  37.     "\nMöchten Sie die \"stormamiga.lib\" für StormC V2 oder für StormC V3 installieren.\n"))
  38.  
  39.     (set #V2  " StormC V2")
  40.     (set #V3  " StormC V3")
  41.  
  42.  
  43.     (set #startup_Auswahl (cat
  44.     "\nWelche(n) Startupcode(s) möchten Sie installieren?\n"))
  45.     
  46.     (set #FAR_C_Startupcode       " \"stormamiga_startups.o\"     (Far Code)")
  47.     (set #FAR_C_C++_Startupcode   " \"stormamiga_C++_startups.o\" (Far Code)")
  48.  
  49.     
  50.     (set #Versions_Auswahl (cat
  51.     "\nWählen Sie die Bibliothek(en) aus, die Sie installieren möchten.\n"))
  52.     
  53.     (set #MC68EC020+            " Bibliothek für MC68EC020+")
  54.     
  55.        
  56.     (set #Standardbeispiele_Auswahl (cat
  57.     "\nUm die Vorteile der \"stormamiga.lib\" etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
  58.     "\nMöchten Sie diese Beispiele installieren.\n"))
  59.     
  60.     (set #ja    "ja")
  61.     (set #nein  "nein")
  62.     
  63.     (set #Beispiele_Liste (cat
  64.     "Installation der Beispiele.\n"
  65.     "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
  66.     "Ein Verzeichnis \"stormamiga_lib_Examples\" wird automatisch erzeugt."))
  67.     
  68.     (set #Spezialbeispiele_Auswahl (cat
  69.     "\nUm die Vorteile und Anwendungsmöglichkeiten der Spezialfunktionen etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
  70.     "Wenn Sie bereits die Standardbeispiele installiert haben, wird automatisch das gleiche Zielverzeichnis benutzt. Ansonsten können Sie ein Zielverzeichnis auswählen.\n"
  71.     "\nMöchten Sie diese Beispiele installieren.\n"))
  72.     
  73.     
  74.     (set #Spezialfunktionen_Auswahl (cat
  75.     "\nMöchten Sie die Spezialfunktionen der \"stormamiga.lib\" nutzen.\n"))
  76.     
  77.     
  78.     (set #User.dic_Auswahl (cat
  79.     "\nUm das Syntax Highlighting auch für die Spezialfunktionen der \"stormamiga.lib\" nutzen zu können, ist es notwendig ein Benutzerlexikon zu installieren.\n"
  80.     "\nWählen Sie aus, ob und mit welchem Name das Benutzerlexikon installiert werden soll.\n"))
  81.     
  82.     (set #User1.dic     "User 1.dic")
  83.     (set #User2.dic     "User 2.dic")
  84.     (set #User3.dic     "User 3.dic")
  85.     (set #kein_User.dic "Kein Benutzerlexikon installieren")
  86.     
  87.     
  88.     (set #Anleitungen_Auswahl (cat
  89.     "\nWählen Sie die Sprache für die AmigaGuide Dokumentation aus.\n"))
  90.     
  91.     (set #Deutsch " Deutsch")
  92.     (set #English " English")
  93.     
  94.     (set #Anleitungen_Liste (cat
  95.     "Installation der Anleitung(en).\n"
  96.     "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
  97.     "Es wird kein Verzeichnis erzeugt."))
  98.  )
  99.  (
  100.     (set #welcome (cat
  101.     "\nWelcome to the installation of the\n"
  102.     "D E M O V E R S I O N\n"
  103.     "of\n"
  104.     "\"stormamiga.lib\"\n"
  105.     ""stormamiga-Version" from "stormamiga-Datum_e"\n\n"
  106.     "This script installs the \"stormamiga.lib\"\n"
  107.     "according to your specification to your harddisk.\n\n\n"
  108.     "Copyright © 1996/98 by CyberdyneSystems\n"
  109.     "written by Matthias Henze"))
  110.     
  111.  
  112.     (set #StormC-Version_Auswahl (cat
  113.     "\nPlease choose whether you like to install the \"stormamiga.lib\" for StormC V2 or for StormC V3.\n"))
  114.  
  115.     (set #V2  " StormC V2")
  116.     (set #V3  " StormC V3")
  117.  
  118.  
  119.     (set #startup_Auswahl (cat
  120.     "\nWhich startup code(s) do you want to install?\n"))
  121.     
  122.     (set #FAR_C_Startupcode       " \"stormamiga_startups.o\"     (Far Code)")
  123.     (set #FAR_C_C++_Startupcode   " \"stormamiga_C++_startups.o\" (Far Code)")
  124.  
  125.     
  126.     (set #Versions_Auswahl (cat
  127.     "\nPlease choose the library(-ies) you want to install.\n"))
  128.     
  129.     (set #MC68EC020+            " library for MC68EC020+")
  130.        
  131.  
  132.     (set #Standardbeispiele_Auswahl (cat
  133.     "\nI added some examples to show the advanages of the \"stormamiga.lib\".\n"
  134.     "\nDo you want to install these examples?\n"))
  135.     
  136.     (set #ja    "yes")
  137.     (set #nein  "no")
  138.     
  139.     (set #Beispiele_Liste (cat
  140.     "Installation of the examples.\n"
  141.     "Please choose a volume or directory.\n"
  142.     "A directory \"stormamiga_lib_Examples\" will be created automatically."))
  143.     
  144.     (set #Spezialbeispiele_Auswahl (cat
  145.     "\nI added some examples to show the advanages and features of the special functions.\n"
  146.     "If you allready installed the standard examples, the same destination directory will be used. If not, you may choose a destination directory.\n"
  147.     "\nDo you want to install these examples?\n"))
  148.     
  149.     
  150.     (set #Spezialfunktionen_Auswahl (cat
  151.     "\nDo you want to use the special functions of the \"stormamiga.lib\"?\n"))
  152.     
  153.     
  154.     (set #User.dic_Auswahl (cat
  155.     "\nTo make Syntax Highlighting also available for the special functions of the \"stormamiga.lib\", it is necessary to install a user dictonary.\n"
  156.     "\nPlease choose the name of the user dictionary if you like to install it.\n"))
  157.     
  158.     (set #User1.dic     "User 1.dic")
  159.     (set #User2.dic     "User 2.dic")
  160.     (set #User3.dic     "User 3.dic")
  161.     (set #kein_User.dic "No user dictonary")
  162.     
  163.     
  164.     (set #Anleitungen_Auswahl (cat
  165.     "\nPlease choose the language for the AmigaGuide documentation.\n"))
  166.     
  167.     (set #Deutsch " Deutsch")
  168.     (set #English " English")
  169.     
  170.     (set #Anleitungen_Liste (cat
  171.     "Installation of the manual(s).\n"
  172.     "Please choose a volume or a directory.\n"
  173.     "A new directory will not be created."))
  174.  )
  175. )
  176. (set Quelle-dic "StormSYS/Dictionary/User.dic")
  177. (set Ziel-dic "StormC:StormSYS/Dictionary")
  178.  
  179. ;=====================================================================================
  180. ; Beginn der Installation
  181. ;=====================================================================================
  182.  
  183. (message #welcome)
  184. (welcome)
  185.  
  186. (
  187.   (set StormC-Version
  188.     (askchoice
  189.       (prompt #StormC-Version_Auswahl)
  190.       (help   @askchoice-help)
  191.       (default 1)
  192.       (choices
  193.     #V2
  194.     #V3
  195.       )
  196.     )
  197.   )
  198.   (if (= StormC-Version 0)
  199.     (
  200.       (set Quelle-1 "StormSYS/StormC_V2-startups")
  201.       (set Ziel-1 "StormC:StormSYS")
  202.       (set Quelle-2 "StormC_V2-Examples/standard")
  203.       (set Quelle-3 "StormC_V2-Examples/special")
  204.     )
  205.     (
  206.       (set Quelle-1 "StormSYS/StormC_V3-startups")
  207.       (set Ziel-1 "StormC:StormSYS/startups")
  208.       (set Quelle-2 "StormC_V3-Examples/standard")
  209.       (set Quelle-3 "StormC_V3-Examples/special")
  210.     )
  211.   )
  212. )
  213.  
  214. (makeassign "INSTTMP" Quelle-1)
  215.  
  216. (
  217.   (set kopiere_startups
  218.     (askoptions
  219.       (prompt #startup_Auswahl)
  220.       (help   @askoptions-help)
  221.       (choices
  222.     #FAR_C_Startupcode
  223.     #FAR_C_C++_Startupcode
  224.       )
  225.     )
  226.   )
  227.   (if (IN kopiere_startups 0) (set FAR_C_Startupcode 1))
  228.   (if (IN kopiere_startups 1) (set FAR_C_C++_Startupcode 1))
  229.  
  230.   (if (= FAR_C_Startupcode 1)
  231.     (copyfiles
  232.       (source "INSTTMP:stormamiga_startups.o")
  233.       (dest Ziel-1)
  234.     )
  235.   )
  236.   (if (= FAR_C_C++_Startupcode 1)
  237.     (copyfiles
  238.       (source "INSTTMP:stormamiga_C++_startups.o")
  239.       (dest Ziel-1)
  240.     )
  241.   )
  242. )
  243.  
  244. (
  245.   (set wähle_Libs
  246.     (askoptions
  247.       (prompt #Versions_Auswahl)
  248.       (help   @askoptions-help)
  249.       (default 1)
  250.       (choices
  251.     #MC68EC020+
  252.       )
  253.     )
  254.   )
  255.   (if (IN wähle_Libs 0) (set MC68EC020+ 1))
  256.  
  257.   (if (= MC68EC020+  1)
  258.     (copyfiles
  259.       (source "lib/stormamiga.lib")
  260.       (dest "StormC:Lib")
  261.     )
  262.   )
  263. )
  264.  
  265. (
  266.   (set kopiere_Standardbeispiele
  267.     (askchoice
  268.       (prompt #Standardbeispiele_Auswahl)
  269.       (help   @askchoice-help)
  270.       (default 0)
  271.       (choices
  272.     #ja
  273.     #nein
  274.       )
  275.     )
  276.   )
  277.   (if (= kopiere_Standardbeispiele 0)
  278.     (
  279.       (set Zielverzeichnis
  280.     (askdir
  281.       (prompt #Beispiele_Liste)
  282.       (help @askdir-help)
  283.       (default "StormC:Examples")
  284.     )
  285.       )
  286.       (makeassign "INST" Zielverzeichnis)
  287.       (copyfiles
  288.     (source Quelle-2)
  289.     (dest "INST:stormamiga_lib_Examples")
  290.     (all)
  291.     (infos)
  292.       )
  293.     )
  294.   )
  295. )
  296.  
  297. (
  298.   (set Spezialfunktionen_Auswahl
  299.     (askchoice
  300.       (prompt #Spezialfunktionen_Auswahl)
  301.       (help   @askchoice-help)
  302.       (default 0)
  303.       (choices
  304.     #ja
  305.     #nein
  306.       )
  307.     )
  308.   )
  309.   (if (= Spezialfunktionen_Auswahl 0)
  310.     (
  311.       (copyfiles
  312.     (source "Include")
  313.     (dest "StormC:Include")
  314.     (all)
  315.       )
  316.       (set kopiere_User.dic
  317.     (askchoice
  318.       (prompt #User.dic_Auswahl)
  319.       (help   @askchoice-help)
  320.       (default 0)
  321.       (choices
  322.         #User1.dic
  323.         #User2.dic
  324.         #User3.dic
  325.         #kein_User.dic
  326.       )
  327.     )
  328.       )
  329.       (if (= kopiere_User.dic 0)
  330.     (copyfiles
  331.       (source Quelle-dic)
  332.       (dest Ziel-dic)
  333.       (newname "User 1.dic")
  334.     )
  335.       )
  336.       (if (= kopiere_User.dic 1)
  337.     (copyfiles
  338.       (source Quelle-dic)
  339.       (dest Ziel-dic)
  340.       (newname "User 2.dic")
  341.     )
  342.       )
  343.       (if (= kopiere_User.dic 2)
  344.     (copyfiles
  345.       (source Quelle-dic)
  346.       (dest Ziel-dic)
  347.       (newname "User 3.dic")
  348.     )
  349.       )
  350.       (set kopiere_Spezialbeispiele
  351.     (askchoice
  352.       (prompt #Spezialbeispiele_Auswahl)
  353.       (help   @askchoice-help)
  354.       (default 0)
  355.       (choices
  356.         #ja
  357.         #nein
  358.       )
  359.     )
  360.       )
  361.       (if (= kopiere_Spezialbeispiele 0)
  362.     (
  363.       (if (exists "INST:stormamiga_lib_Examples" (noreq))
  364.         (copyfiles
  365.           (source Quelle-3)
  366.           (dest "INST:stormamiga_lib_Examples")
  367.           (all)
  368.           (infos)
  369.         )
  370.       )
  371.       (if (= (exists "INST:stormamiga_lib_Examples" (noreq))0)
  372.         (
  373.           (set Zielverzeichnis
  374.         (askdir
  375.           (prompt #Beispiele_Liste)
  376.           (help @askdir-help)
  377.           (default "StormC:Examples")
  378.         )
  379.           )
  380.           (makeassign "INST" Zielverzeichnis)
  381.           (copyfiles
  382.         (source Quelle-3)
  383.         (dest "INST:stormamiga_lib_Examples")
  384.         (all)
  385.         (infos)
  386.           )
  387.         )
  388.       )
  389.     )
  390.       )
  391.     )
  392.   )
  393. )
  394.  
  395. (
  396.   (set kopiere_Anleitungen
  397.     (askchoice
  398.       (prompt #Anleitungen_Auswahl)
  399.       (help   @askchoice-help)
  400.       (if (= @language "deutsch")
  401.     ((default 0))
  402.     ((default 1))
  403.       )
  404.       (choices
  405.     #Deutsch
  406.     #English
  407.       )
  408.     )
  409.   )
  410.   (if (= kopiere_Anleitungen 0) (set Quelle-D "stormamiga_lib.guide"))
  411.   (if (= kopiere_Anleitungen 1) (set Quelle-D "stormamiga_lib_e.guide"))
  412.   (
  413.     (set Dokverzeichnis
  414.       (askdir
  415.     (prompt #Anleitungen_Liste)
  416.     (help @askdir-help)
  417.     (default "StormC:")
  418.     (disk)
  419.       )
  420.     )
  421.     (makeassign "INSTDOK" Dokverzeichnis)
  422.     (copyfiles
  423.       (source Quelle-D)
  424.       (dest "INSTDOK:")
  425.       (infos)
  426.     )
  427.   )
  428. )
  429.  
  430. (makeassign "INSTTMP")
  431. (makeassign "INST")
  432. (makeassign "INSTDOK")
  433.